home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TURB_VIS / TCYBER25 / CYTERM.ZIP / WOODLAND.SCR < prev   
Text File  |  1994-10-20  |  3KB  |  192 lines
  1. ;
  2. ;CyberScript to download mail from Woodland BBS using Wildcat! v4 wcMail
  3. ;door.  DOWNLOADZMODEM not supported in Demoware version.
  4. ;
  5.  
  6. ;Declare vars
  7.  
  8. String RespStr
  9. String CapName
  10. String Command
  11. String Name
  12. String Password
  13. String Birthday
  14. String Phone
  15.  
  16. LogOn
  17.  
  18. ;Initilize vars
  19.  
  20. Assign CapName,  'WOODLAND.CAP'
  21. Assign Command,  '>>,command?,packet?' 
  22. Assign Name,     'steve goldsmith'
  23. Assign Password, 'turbo'
  24. Assign Birthday, '031765'
  25. Assign Phone,    '813-925-1064'
  26.  
  27. WaitForSepChar ','
  28. WaitForSecs 60
  29.  
  30. CaptureNew CapName
  31. Init
  32. Dial
  33. Call       Login
  34. Call       SkipIntro
  35. Call       MainMenu
  36. Call       GetMail
  37. CaptureNew CapName
  38. End
  39.  
  40. Label Login
  41.  
  42. ;What is your first name?
  43.  
  44. WaitFor 'twice for WILDCAT,name?'
  45. GetResp RespStr
  46. If<>    RespStr,'name?'
  47.   Call  SendEsc
  48. Send    Name
  49. Send    #13
  50.  
  51. ;Password? [              ]
  52.  
  53. WaitFor 'Password?'
  54. Send    Password
  55. Send    #13
  56.  
  57. ;Please enter your BIRTH DATE? [  /  /  ]
  58.  
  59. WaitFor 'DATE,top?'
  60. GetResp RespStr
  61. If=     RespStr,'DATE'
  62.   Call  Verify
  63. Send    #13
  64. Return
  65.  
  66. ;Escape twice 
  67.  
  68. Label SendEsc
  69.  
  70. Send    #27
  71. Send    #27
  72. WaitFor 'name?'
  73. Return
  74.  
  75. ;Handle verfication
  76.  
  77. Label Verify
  78.  
  79. Send Birthday
  80. Send #13
  81.  
  82. ;Please enter your VOICE phone number? [   -   -    ]
  83.  
  84. WaitFor 'number,top?,uit?'
  85. GetResp RespStr
  86. If=     RespStr,'number'
  87.   Call  SendPhone
  88. Return
  89.  
  90. ;Send phone number
  91.  
  92. Label SendPhone
  93.  
  94. Send    Phone
  95. Send    #13
  96. WaitFor 'top?,uit?'
  97. Return
  98.  
  99. ;Slam Enter through opening messages
  100.  
  101. Label SkipIntro
  102.  
  103. ;[C]ontinue, [N]onStop, [S]top? [C]
  104.  
  105. WaitFor 'top?,uit?'
  106. GetResp RespStr
  107. Send    #13
  108. If=     RespStr,'top?'
  109.   Goto  SkipIntro
  110. Return
  111.  
  112. ;Get to the main menu after skipping log in messages
  113.  
  114. Label MainMenu
  115.  
  116. ;Press [ENTER] to continue?
  117.  
  118. WaitFor 'continue?,ist mail'
  119. GetResp RespStr
  120. If=     RespStr,'continue?'
  121.   Send  #13
  122.  
  123. ;Skip listing mail since we are goind to download it
  124.  
  125. If= RespStr,'ist mail'
  126.   Send 'c'
  127.  
  128. ;    Main Menu Command >>
  129.  
  130. WaitFor Command
  131. Return
  132.  
  133. ;Log off BBS
  134.  
  135. Label LogOff
  136.  
  137. Send 'g'
  138.  
  139. ;Are you sure you wish to logoff [Y/n]? [Y]
  140.  
  141. WaitFor     'logoff'
  142. Send        #13
  143. WaitForSecs 10
  144. WaitFor     'NO CARRIER'
  145. GetResp     RespStr
  146. If<>        RespStr,'NO CARRIER'
  147.   HangUp
  148. Return
  149.  
  150. ;Download mail from wcMail
  151.  
  152. Label GetMail
  153.  
  154. Send 'm'
  155.  
  156. ;    Message Menu Command >>
  157.  
  158. WaitFor Command
  159. Send    't'
  160.  
  161. ;[C]ontinue, [N]onStop, [S]top? [C]
  162.  
  163. WaitFor 'top?'
  164. Send    #13
  165.  
  166. ;     Main Menu Command >>[ ]
  167.  
  168. WaitFor Command
  169. Send    'd'
  170.  
  171. ;     Main Menu Command >>[ ]
  172.  
  173. WaitForSecs 240
  174. WaitFor Command
  175. GetResp RespStr
  176.  
  177. ;See if we have any mail to download
  178.  
  179. If<>            RespStr,'packet?'
  180.   Goto         LogOff
  181. Send           'g'
  182. WaitFor        'now...'
  183. DownloadZmodem
  184. WaitFor        'online...'
  185. Send           'h'
  186. WaitForSecs    10
  187. WaitFor        'NO CARRIER'
  188. GetResp        RespStr
  189. If<>           RespStr,'NO CARRIER'
  190.   HangUp
  191. Return
  192.